Mac Easy 2010 May/Mac Life Ubuntu.iso/casper/filesystem.squashfs/usr/lib/perl/5.10.0/bits/wordsize.ph

Text File | 2009-06-26 | 332 b | 12 lines

require '_h2ph_pre.ph';

no warnings 'redefine';

if(defined (defined(&__x86_64__) ? &__x86_64__ : undef)) {
    eval 'sub __WORDSIZE () {64;}' unless defined(&__WORDSIZE);
    eval 'sub __WORDSIZE_COMPAT32 () {1;}' unless defined(&__WORDSIZE_COMPAT32);
} else {
    eval 'sub __WORDSIZE () {32;}' unless defined(&__WORDSIZE);
}
1;